(mh-goto-header-end): Use mh-mail-header-separator instead of -* in

regexp.

diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index b05c1d9677598319773cb651747a923ab9f202b2..7a263bc8123690ced955d863d2744967cd621a84 100644 (file)
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -860,7 +860,8 @@ Returns t if found, nil if not."
 ;;;###mh-autoload
 (defun mh-goto-header-end (arg)
   "Move the cursor ARG lines after the header."
-  (if (re-search-forward "^-*$" nil nil)
+  (if (re-search-forward (concat "^\\(" (regexp-quote mh-mail-header-separator)
+                                 "\\)?$") nil nil)
       (forward-line arg)))
 
 ;;;###mh-autoload